home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / nt4.0 server / DRVLIB.NIC / NIWRAS / OEMSETUP.INF < prev    next >
Encoding:
INI File  |  1996-07-31  |  49.4 KB  |  1,308 lines
  1. ;***********************************************************************
  2. ; Niwot Networks NiwRAS Digital Transport WindowsNT Setup File. 
  3. ; Rev1P2 04/05/96  WAG Leased Lines ARE supported
  4. ; 
  5. ;***********************************************************************
  6. [Identification]
  7.     OptionType = NetAdapter
  8.  
  9. [DebugVars]
  10.     STF_DISPLAYDEBUGCONTROL = 1
  11.  
  12. ;***********************************************************************
  13. ;
  14. ;***********************************************************************
  15. [PlatformsSupported]
  16.     ISA
  17.     EISA
  18.     "Jazz-Internal Bus"
  19.  
  20. ;***********************************************************************
  21. ;
  22. ;***********************************************************************
  23. [Options]
  24.     NiwRAS
  25.  
  26. ;***********************************************************************
  27. ;
  28. ;***********************************************************************
  29. [FileConstants]
  30.     InfName                 = "OEMNIWOT.INF"
  31.     UtilityInf              = "UTILITY.INF"
  32.     ParamInf                = "NCPARAM.INF"
  33.     subroutineinf           = "SUBROUTN.INF"
  34.     SoftwareType            = "driver"
  35.     Exit_Code               = 0
  36.     NetEventDLL             = "%SystemRoot%\System32\netevent.dll"
  37.     IoLogMsgDLL             = "%SystemRoot%\System32\IoLogMsg.dll"
  38.     Manufacturer            = "Niwot Networks"
  39.     ProductMajorVersion     = "3"
  40.     ProductMinorVersion     = "1"
  41.     ProductVersion          = $(ProductMajorVersion)"."$(ProductMinorVersion)
  42.     ProductSoftwareName     = "NiwRAS"
  43.     ProductSoftwareImagePath = "\SystemRoot\System32\drivers\NiwRAS.sys"
  44.     NetRuleSoftwareType     = "NiwRASSys NiwRASDriver"
  45.     NetRuleSoftwareUse      = $(SoftwareType)
  46.     NetRuleSoftwareBindForm = """NiwRASSys"" yes no container"
  47.     NetRuleSoftwareClass    = {"NiwRASDriver basic"}
  48.     NetRuleSoftwareBindable = {"NiwRASDriver NiwRASAdapter non exclusive 100"}
  49.     ProductHardwareName     = "NiwRAS"
  50.     NetRuleHardwareBindForm = " yes yes container"
  51.     NetRuleHardwareNiwRASType = "NiwRAS NiwRASAdapter"
  52.     NetRuleHardwareNiwRASClass = {"NiwRASAdapter basic"}
  53.     BindableNiwRASTxt      = {"NiwRASDriver NiwRASAdapter non exclusive 100"}
  54.     DeviceMap               = "HARDWARE\DEVICEMAP"
  55.     TapiDevices             = "TAPI DEVICES"
  56.     TapiDeviceKey           = $(ProductHardwareName)
  57.     TapiMediaType           = "Sync_"
  58.     ProductKeyName          = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"+
  59.                               $(ProductSoftwareName)"\CurrentVersion"
  60.     ParamKeyName            = $(!NTN_ServiceBase)"\"$(ProductHardwareName)+
  61.                               "\Parameters"
  62.  
  63.  
  64.     LineType                = 0
  65.  
  66. ;   FIXME - Set to zero before release
  67.     DebugFlags              = 0
  68.  
  69.     IOADDR_Addr_List = {640,656, 736, 768, 848, 896}
  70.     Interrupt_List   = {2, 10, 11, 12, 15}
  71.     DMA_Channel_List = {0, 1, 3, 5, 6, 7}
  72.     ClockSpeedList = {0, 56, 64, 112, 128, 384, 512, 768, 1000, 2500, 5000}
  73.     
  74.     DMAChannel = 6                 ; Default value
  75.  
  76.     IOBaseValue = 0x380            ; Default value
  77.  
  78.     InterruptNumber = 10        ; Default value
  79.  
  80.     ClockSpeed = 0                ; Default value
  81.  
  82.     Port1TypeList  = {Dial, Leased}
  83.     Port2TypeList  = {Disabled}
  84.  
  85.     Rate_Strings            = {"57.6 kbps", "38.4 kbps", "19.2 kpbs", "9.6 kbps", "Max kbps"}
  86.     Line_Rates              = {1, 2, 3, 4, 0}
  87.     LineRate                = 1
  88.  
  89. ;***********************************************************************
  90. ;
  91. ;***********************************************************************
  92. [GeneralConstants]
  93.     from                    = ""
  94.     to                      = ""
  95.     ExitCodeOk              = 0
  96.     ExitCodeCancel          = 1
  97.     ExitCodeFatal           = 2
  98.     KeyNull                 = ""
  99.     MAXIMUM_ALLOWED         = 33554432
  100.     RegistryErrorIndex      = NO_ERROR
  101.     KeyProduct              = ""
  102.     KeyParameters           = ""
  103.     TRUE                    = 1
  104.     FALSE                   = 0
  105.     NoTitle                 = 0
  106.     ExitState               = "Active"
  107.     OldVersionExisted       = $(FALSE)
  108.     DriverPath              = $(!STF_NTPATH)\drivers
  109.  
  110. ;***********************************************************************
  111. ;
  112. ;***********************************************************************
  113. [Date]
  114.     Now                     = {} ? $(!LIBHANDLE) GetSystemDate
  115.  
  116. ;***********************************************************************
  117. ;
  118. ;***********************************************************************
  119. [Identify]
  120.     Read-Syms Identification
  121.     Set Status      = STATUS_SUCCESSFUL
  122.     Set Identifier  = $(OptionType)
  123.     Set Media       = #("Source Media Descriptions", 1, 1)
  124.     Return $(Status) $(Identifier) $(Media)
  125.  
  126. ;***********************************************************************
  127. ;
  128. ;***********************************************************************
  129. [ReturnOptions]
  130.     Set Status          = STATUS_FAILED
  131.     Set OptionList      = {}
  132.     Set OptionTextList  = {}
  133.     Set LanguageList    = ^(LanguagesSupported, 1)
  134.  
  135.     IfContains(i) $($0) in $(LanguageList)
  136.         IfStr(i) $($1) == ""
  137.             GoTo SetOptions
  138.         EndIf
  139.         Set PlatformList = ^(PlatformsSupported, 1)
  140.         IfContains(i) $($1) in $(PlatformList)
  141.             GoTo SetOptions
  142.         Else
  143.             Set Status = STATUS_NOTSUPPORTED
  144.             GoTo ExitReturnOptions
  145.         EndIf
  146.     Else
  147.         Set Status = STATUS_NOLANGUAGE
  148.         GoTo ExitReturnOptions
  149.     EndIf
  150.  
  151. SetOptions = +
  152.     Set OptionList     = ^(Options, 1)
  153.     Set OptionTextList = ^(OptionsText$($0), 1)
  154.     Set Status         = STATUS_SUCCESSFUL
  155.  
  156. ExitReturnOptions = +
  157.     Return $(Status) $(OptionList) $(OptionTextList)
  158.  
  159. ;***********************************************************************
  160. ;
  161. ;***********************************************************************
  162. [InstallOption]
  163.     Set Status   = STATUS_FAILED
  164.     Set Option   = $($1)
  165.     Set SrcDir   = $($2)
  166.     Set RasDir   = $($2)
  167.     Set AddCopy  = $($3)
  168.     Set DoCopy   = $($4)
  169.     Set DoConfig = $($5)
  170.     Set LanguageList = ^(LanguagesSupported, 1)
  171.  
  172.     IfContains(i) $($0) NOT-IN $(LanguageList)
  173.         Return STATUS_NOLANGUAGE
  174.     EndIf
  175.     ;
  176.     ; FIXME - make sure this flag is disabled before shipping
  177.     ;
  178.     Set OldDebugControl = $(!DebugOutputControl)
  179.     ; 1 is for debug
  180.     ;Set !DebugOutputControl = 1
  181.     Set !DebugOutputControl = 0
  182.  
  183.     Set-Subst LF = "\n"
  184.  
  185.     Read-Syms GeneralConstants
  186.     Read-Syms FileConstants
  187.     Read-Syms DialogConstants$(!STF_LANGUAGE)
  188.  
  189.     IfStr(i) $(!NTN_Origination) == "NCPA"
  190.         Set Continue = $(OK)
  191.     EndIf
  192.  
  193.     Read-Syms FileConstants$(!STF_LANGUAGE)
  194. ;WHQL
  195.     SetHelpFile "NIWHELP.HLP" 10 100
  196.  
  197.     Detect Date
  198.     Set-Title  $(FunctionTitle)$(Option)
  199.  
  200.     Set to   = Begin
  201.     Set from = Begin
  202.     Set CommonStatus = STATUS_SUCCESSFUL
  203.  
  204.     EndWait
  205.  
  206. ;***********************************************************************
  207. ;
  208. ;***********************************************************************
  209. Begin = +
  210.     Set ActivateDetection = FALSE
  211.     IfStr(i) $(!NTN_InstallMode) == deinstall
  212.         Set StartLabel = RemoveAdapter
  213.     Else-IfStr(i) $(!NTN_InstallMode) == Update
  214.         Set StartLabel = UpgradeSoftware
  215.     Else-IfStr(i) $(!NTN_InstallMode) == bind
  216.         Set StartLabel = BindingAdapter
  217.     Else-IfStr(i) $(!NTN_InstallMode) == configure
  218.         Set StartLabel = ConfigureAdapter
  219.         Set ActivateDetection = TRUE
  220.         Set CommonStatus = STATUS_REBOOT
  221.         IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
  222.             Debug-Output $(InfName)": Cannot configure the EtherWORKS 3 driver software."
  223.             Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  224.             IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  225.                 Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  226.                 GoTo ShellCodeError
  227.             EndIf
  228.             Set Error = $($R0)
  229.             Set from = end
  230.             Set to = end
  231.             GoTo NonFatalInfo
  232.         EndIf
  233.     Else
  234.         Set StartLabel = InstallAdapter
  235.         Set ActivateDetection = TRUE
  236.         Set OEM_ABANDON_OPTIONS = {}
  237.         Set OEM_ABANDON_SOFTWARE = FALSE
  238.         Set OEM_ABANDON_ON = TRUE
  239.     EndIf
  240.  
  241.     Debug-Output $(InfName)": =================================================="
  242.     Debug-Output $(InfName)": STF_CWDIR is: "$(!STF_CWDIR)
  243.     Debug-Output $(InfName)": STF_LANGUAGE is: "$(!STF_LANGUAGE)
  244.     Debug-Output $(InfName)": Option is: "$(Option)
  245.     Debug-Output $(InfName)": !STF_NCDETECT  is: "$(!STF_NCDETECT)
  246.     Debug-Output $(InfName)": !STF_NCOPTION  is: "$(!STF_NCOPTION)
  247.     Debug-Output $(InfName)": !STF_NCDETCARD is: "$(!STF_NCDETCARD)
  248.     Debug-Output $(InfName)": !STF_NCDETINFO is: "$(!STF_NCDETINFO)
  249.     Debug-Output $(InfName)": =================================================="
  250.  
  251.     Set DetectedCard = FALSE
  252.     IfStr(i) $(ActivateDetection) != TRUE
  253.         GoTo $(StartLabel)
  254.     EndIf
  255.  
  256.     Debug-Output $(InfName)": Calling Param_SetDefaults"
  257.     Shell $(ParamInf) Param_SetDefaults {}
  258.  
  259.     Shell $(ParamInf) HexListFromDecList $(IOADDR_Addr_List)
  260.     Set IOADDR_Hex_List = $($R0)
  261.  
  262.     IfStr(i) $(!STF_NCDETECT) == YES
  263.         IfStr(i) $(!STF_NCOPTION) == $(Option)
  264.            Set DetectedCard = TRUE
  265.            Debug-Output $(InfName)": Setting DetectedCard to TRUE"
  266.         EndIf
  267.     EndIf
  268.  
  269.     Shell "" DebugConfiguration "After parameter querying"
  270.     Set from = FatalError
  271.     Set to = FatalError
  272.     GoTo $(StartLabel)
  273.  
  274. ;***********************************************************************
  275. ;
  276. ;***********************************************************************
  277. InstallAdapter = +
  278.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  279.     IfStr $(KeyProduct) != $(KeyNull)
  280.         CloseRegKey $(KeyProduct)
  281.         IfStr(i) !(NTN_RegBase) == $(ProductKeyName)
  282.            Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+
  283.                $(ProductVersion)
  284.            IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  285.                Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  286.                GoTo ShellCodeError
  287.            EndIf
  288.            GoTo end
  289.         Else
  290.            Shell $(UtilityInf), CardExistedDlg
  291.            IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  292.                Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  293.                GoTo ShellCodeError
  294.            EndIf
  295.            IfStr(i) $($R1) != "OK"
  296.                Set CommonStatus = STATUS_USERCANCEL
  297.                GoTo end
  298.            EndIf
  299.            Set OldVersionExisted = $(TRUE)
  300.         EndIf
  301.     EndIf
  302.  
  303.     Set CurrParamSettings = {}
  304.     IfStr(i) $(DetectedCard) != TRUE
  305.         GoTo AdapterSetup
  306.     EndIf
  307.  
  308.     StartWait
  309.         Shell $(ParamInf) Param_QueryCard $(!STF_NCDETCARD)
  310.     EndWait
  311.  
  312.     IfStr(i) $($R0) != STATUS_SUCCESSFUL
  313.         GoTo AdapterSetup
  314.     EndIf
  315.  
  316.     Set DetectedParams = $($R1)
  317.     Debug-Output $(InfName)": Calling Param_SetDefaults to merge detected params"
  318.     Shell $(ParamInf) Param_SetDefaults $(DetectedParams)
  319.     GoTo AdapterSetup
  320.  
  321. ;***********************************************************************
  322. ;
  323. ;***********************************************************************
  324. ConfigureAdapter = +
  325.     IfStr $(KeyProduct) == $(KeyNull)
  326.         OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) KeyProduct
  327.         IfStr $(KeyProduct) == $(KeyNull)
  328.             Set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
  329.             Debug-Output $(InfName)": Cannot find component product key"
  330.             GoTo FatalRegistry
  331.         EndIf
  332.     EndIf
  333.  
  334.     Debug-Output $(InfName)": Shelling to FindService"
  335.     Shell $(UtilityInf) FindService, $(KeyProduct)
  336.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  337.         Debug-Output $(InfName)": FindService shell failure"
  338.         GoTo ShellCodeError
  339.     EndIf
  340.     IfStr(i) $($R0) != NO_ERROR
  341.         Debug-Output $(InfName)": FindService Shell error: "$($R0)
  342.         GoTo FatalRegistry
  343.     EndIf
  344.  
  345.     Set KeyParameters = $($R2)
  346.     CloseRegKey $($R1)
  347.     IfStr $(KeyParameters) == $(KeyNull)
  348.         Set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
  349.         Debug-Output $(InfName)": Cannot find component service"
  350.         GoTo FatalRegistry
  351.     EndIf
  352.  
  353.     Set OldVersionExisted = $(TRUE)
  354.     Set ValueName = ""
  355.     Set ValueData = ""
  356.     Set ValueStr  = ""
  357.     Set ValueList = {}
  358.     EnumRegValue $(KeyParameters) ValueList
  359.     ForListDo $(ValueList)
  360.         Set ValueItem = $($)
  361.         Set ValueName = *($(ValueItem),1)
  362.         Set ValueData = *($(ValueItem),4)
  363.         Debug-Output $(InfName)": "$(ValueName)"="$(ValueData)
  364.         IfStr(i) $(ValueName) == "AddressList"
  365.             Set TapiAddressList = $(ValueData)
  366.         Else-IfStr(i) $(ValueName) == "BusNumber"
  367.             Set BusNumber = $(ValueData)
  368.         Else-IfStr(i) $(ValueName) == "BusType"
  369.             Set BusType = $(ValueData)
  370.         Else-Ifstr(i) $(ValueName) == "ClockSpeed"
  371.             set ClockSpeed = $(ValueData)
  372.         Else-Ifstr(i) $(ValueName) == "DeviceName"
  373.             set ProductHardwareName = $(ValueData)
  374.         Else-Ifstr(i) $(ValueName) == "DMAChannel"
  375.             set DMAChannel = $(ValueData)
  376.         Else-IfStr(i) $(ValueName) == "InterruptNumber"
  377.             Set InterruptNumber = $(ValueData)
  378.         Else-IfStr(i) $(ValueName) == "IOBaseAddress"
  379.             Set IOBaseValue = $(ValueData)
  380.         Else-IfStr(i) $(ValueName) == "LineRate"
  381.             Set LineRate = $(ValueData)
  382.         Else-IfStr(i) $(ValueName) == "LineType"
  383.             Set LineType = $(ValueData)
  384.         Else-IfStr(i) $(ValueName) == "MediaType"
  385.             Set MediaType = $(ValueData)
  386.            Else-IfStr(i) $(ValueName) == "Port1Type"
  387.             Set Port1Type = $(ValueData)
  388.         Else-IfStr(i) $(ValueName) == "Port2Type"
  389.             Set Port2Type = $(ValueData)
  390.         EndIf
  391.     EndForListDo
  392.     Shell $(ParamInf) Param_SaveValues
  393.     Set CurrParamSettings = $($R0)
  394.  
  395. ;***********************************************************************
  396. ;
  397. ;***********************************************************************
  398. AdapterSetup = +
  399.     Shell "" DebugConfiguration "before displaying dialog"
  400.     Set from = AdapterOptions
  401.  
  402.     Shell $(ParamInf) Param_ParameterConfidence
  403.     IfStr(i) $($R0) != STATUS_SUCCESSFUL
  404.         Debug-Output $(InfName)": parameter confidence too low to bypass configuration"
  405.         GoTo AdapterOptions
  406.     EndIf
  407.     IfStr(i) $(DetectedCard) == TRUE
  408.         IfStr(i) $(!STF_INSTALL_MODE) != CUSTOM
  409.             GoTo AdapterVerify
  410.         EndIf
  411.     EndIf
  412.  
  413. ;***********************************************************************
  414. ;
  415. ;***********************************************************************
  416. AdapterOptions = + 
  417.     set IOBaseAddress = *($(IOADDR_Hex_List), ~($(IOADDR_Addr_List),+
  418.         $(IOBaseValue)))
  419.     Read-Syms FileDependentDlg$(!STF_LANGUAGE)
  420.     UI Start "InputDlg"
  421.     IfStr(i) $(DLGEVENT) == "CONTINUE"
  422.         Set InterruptNumber = $(Combo1Out)
  423.         Set IOBaseAddress = $(Combo2Out)
  424.         ;Set IOBaseAddress = *($(IOADDR_Addr_List), ~($(IOADDR_Hex_List),$(IOADDR_Hex_Value)))
  425.         Set DMAChannel = $(Combo3Out)
  426.         Set RateString = $(Combo4Out)
  427.         Set LineRate = *($(Line_Rates), ~($(Rate_Strings),$(RateString)))
  428.         Set Port1TypeString = $(Combo5Out)
  429.         Set Port2TypeString = $(Combo6Out)
  430.         ui pop 1
  431.     Else-IfStr(i) $(DLGEVENT) == "BACK"
  432.         Set CommonStatus = STATUS_USERCANCEL
  433.         Debug-Output $(InfName)": Action: exit. Bye."
  434.         ui pop 1
  435.         GoTo end
  436.     Else
  437.         Debug-Output $(InfName)": Action: unknown. Bye."
  438.         ui pop 1
  439.         GoTo end
  440.     EndIf
  441.     IfStr(i) $(!STF_NCDETINFO) == {}
  442.         Shell $(UtilityInf),GetBusTypeDialog,$(ProductHardware$(Option)Description) $(BusType) $(BusNumber)
  443.         ifInt $($ShellCode) != $(!SHELL_CODE_OK)
  444.             Debug-Output $(InfName)": ShellCode error."
  445.             GoTo ShellCodeError
  446.         EndIf
  447.         Set BusType = $($R1)
  448.         Set BusNumber = $($R2)
  449.     Else
  450.         Set BusType = *($(!STF_NCDETINFO),5)
  451.         Set BusNumber = *($(!STF_NCDETINFO),6)
  452.     EndIf
  453.     Read-Syms CardDependentDlg$(!STF_LANGUAGE)
  454.     ui start "InputDlg"
  455.     ifstr(i) $(DLGEVENT) == "CONTINUE"
  456.         set ClockSpeed = $(Combo1Out)
  457.         set Port1Type = $(Combo2Out)
  458.         set Port2Type = $(Combo3Out)
  459.         ui pop 1
  460.     else-ifstr(i) $(DLGEVENT) == "BACK"
  461.         set CommonStatus = STATUS_USERCANCEL
  462.         Debug-Output "Action: exit. Bye."
  463.         ui pop 1
  464.         goto end
  465.     else
  466.         ui pop 1
  467.         Debug-Output "Action: unknown. Bye."
  468.         goto end
  469.     endif
  470.  
  471. ;***********************************************************************
  472. ;
  473. ;***********************************************************************
  474. AdapterVerify = +
  475.     Shell "" DebugConfiguration "after running dialog"
  476.     IfStr(i) $(DetectedCard) != TRUE
  477.         Shell $(ParamInf) Param_SaveValues
  478.         Set NewParamSettings = $($R0)
  479.         IfStr(i) $(CurrParamSettings) == {}
  480.             Set DiffParamSettings = $(NewParamSettings)
  481.         Else
  482.             Shell $(ParamInf) Param_DiffValues $(CurrParamSettings)
  483.             Set DiffParamSettings = $($R0)
  484.         EndIf
  485.         Debug-Output $(InfName)": Calling Param_VerifyResources"
  486.         Shell $(ParamInf) Param_VerifyResources $(DiffParamSettings)
  487.         IfStr(i) $($R0) == STATUS_SUCCESSFUL
  488.             Debug-Output $(InfName)": Param_VerifyResources succeeded"
  489.             GoTo SkipOptions
  490.         EndIf
  491.     Else
  492.         Set CardVerifyIndex = $(!STF_NCDETCARD)
  493.         Debug-Output $(InfName)": Calling Param_VerifyCard"
  494.         Shell $(ParamInf) Param_VerifyCard $(!STF_NCDETCARD)
  495.         IfStr(i) $($R0) == STATUS_SUCCESSFUL
  496.             Debug-Output $(InfName)": Param_VerifyCard succeeded"
  497.             GoTo SkipOptions
  498.         EndIf
  499.     EndIf
  500.  
  501.     Set from = AdapterOptions
  502.     Set to = SkipOptions
  503.     Shell $(UtilityInf),RegistryErrorString,VERIFY_WARNING
  504.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  505.         Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  506.         GoTo ShellCodeError
  507.     EndIf
  508.     Set Error = $($R0)
  509.     GoTo WarningMsg
  510.  
  511. ;***********************************************************************
  512. ;
  513. ;***********************************************************************
  514. SkipOptions =+
  515.     IfInt $(OldVersionExisted) == $(TRUE)
  516.         IfStr(i) $(!NTN_InstallMode) == configure
  517.             GoTo WriteParameters
  518.         EndIf
  519.     EndIf
  520.     StartWait
  521.     IfInt $(OldVersionExisted) == $(FALSE)
  522.         IfStr(i) $(!NTN_InstallMode) == "install"
  523.            IfStr(i) $(DoCopy) == "YES"
  524.               Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  525.               IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  526.                   GoTo ShellCodeError
  527.               Else-IfStr(i) $($R0) == STATUS_FAILED
  528.                   Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  529.                   IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  530.                       GoTo ShellCodeError
  531.                   EndIf
  532.                   Set Error = $($R0)
  533.                   GoTo FatalError
  534.               Else-IfStr(i) $($R0) == STATUS_USERCANCEL
  535.                   GoTo SuccessfulOption
  536.               EndIf
  537.               Set SrcDir = $($R1)
  538.            EndIf
  539.  
  540.            Install "Install-Option"
  541.            IfStr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  542.               Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  543.               IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  544.                   GoTo ShellCodeError
  545.               EndIf
  546.               Set Error = $($R0)
  547.               GoTo FatalError
  548.            EndIf
  549.         EndIf
  550.  
  551.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  552.             $(ProductSoftwareName), +
  553.             $(ProductSoftwareName), +
  554.             $(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
  555.             $(ProductSoftwareImagePath), "kernelautostart", "NDIS", {}, "",+
  556.             $(NetEventDLL)
  557.         Set OEM_ABANDON_SOFTWARE = TRUE
  558.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  559.             Debug-Output $(InfName)": ShellCode error"
  560.             GoTo ShellCodeError
  561.         EndIf
  562.         Set RegistryErrorIndex = $($R0)
  563.         Set KeyProduct      = $($R1)
  564.         Set SoftNetRulesKey = $($R2)
  565.         CloseRegKey $($R3)
  566.         CloseRegKey $($R4)
  567.         CloseRegKey $($R5)
  568.  
  569.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  570.             EndWait
  571.             Debug-Output $(InfName)": Registry error: add software components"
  572.             CloseRegKey $(KeyProduct)
  573.             CloseRegKey $(SoftNetRulesKey)
  574.             GoTo FatalRegistry
  575.         EndIf
  576.  
  577.         Set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  578.                            {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  579.                            {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  580.                            {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
  581.                            {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
  582.                            {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
  583.                            {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  584.         Shell  $(UtilityInf), AddValueList, $(KeyProduct), $(NewValueList)
  585.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  586.             Debug-Output $(InfName)": ShellCode error."
  587.             GoTo ShellCodeError
  588.         EndIf
  589.         Set RegistryErrorIndex = $($R0)
  590.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  591.             EndWait
  592.             Debug-Output $(InfName)": Registry error: add value list."
  593.             CloseRegKey $(KeyProduct)
  594.             CloseRegKey $(SoftNetRulesKey)
  595.             GoTo FatalRegistry
  596.         EndIf
  597.  
  598.         Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
  599.                             {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
  600.                             {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
  601.                             {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
  602.                             {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(Bindable$(Option)Txt)}, +
  603.                             {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  604.         Shell  $(UtilityInf), AddValueList, $(SoftNetRulesKey), $(NewValueList)
  605.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  606.             Debug-Output $(InfName)": ShellCode error."
  607.             GoTo ShellCodeError
  608.         EndIf
  609.         Set RegistryErrorIndex = $($R0)
  610.         CloseRegKey $(KeyProduct)
  611.         CloseRegKey $(SoftNetRulesKey)
  612.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  613.             EndWait
  614.             Debug-Output $(InfName)": Resgitry error: add value list."
  615.             GoTo FatalRegistry
  616.         EndIf
  617.     EndIf
  618.  
  619.     Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName),$(STF_CONTEXTINFNAME),$(ProductKeyName)
  620.     IfInt $($R4) != -1
  621.         Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
  622.     EndIf
  623.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  624.         Debug-Output $(InfName)": Cannot add hardware component"
  625.         GoTo ShellCodeError
  626.     EndIf
  627.     Set RegistryErrorIndex = $($R0)
  628.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  629.         EndWait
  630.         Debug-Output $(InfName)": Registry error: add hardware component"
  631.         CloseRegKey $($R1)
  632.         CloseRegKey $($R2)
  633.         CloseRegKey $($R3)
  634.         GoTo FatalRegistry
  635.     EndIf
  636.  
  637.     Set KeyParameters = $($R3)
  638.     Set KeyAdapterRules = $($R2)
  639.     Set AdapterNumber = $($R4)
  640.     Set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  641.                        {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardware$(Option)Title)},+
  642.                        {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardware$(Option)Description)},+
  643.                        {ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  644.                        {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  645.                        {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  646.     Shell  $(UtilityInf), AddValueList, $($R1), $(NewValueList)
  647.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  648.         Debug-Output $(InfName)": ShellCode error"
  649.         GoTo ShellCodeError
  650.     EndIf
  651.     CloseRegKey $($R1)
  652.  
  653. ;;; You need one address entry in the list for each channel on your device.
  654. ;;; FIXME - at this point RAS requires there to be one logical line per address
  655. ;;; FIXME - so the address (channel) number is ignored and the line number is used
  656.     Set TapiAddressList = {$(AdapterNumber)" 1 0"}
  657.     IfStr(i) $(Option) == NiwRAS2
  658.         Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)" 2 0")
  659.     EndIf
  660.  
  661.     Set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
  662.     Set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
  663.     Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardware$(Option)Type)},+
  664.                         {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  665.                         {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardware$(Option)Class)}, +
  666.                         {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  667.     Shell  $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
  668.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  669.         Debug-Output $(InfName)": ShellCode error."
  670.         GoTo ShellCodeError
  671.     EndIf
  672.     Set RegistryErrorIndex = $($R0)
  673.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  674.         EndWait
  675.         Debug-Output $(InfName)": Resgitry error: add value list."
  676.         CloseRegKey $(KeyParameters)
  677.         CloseRegKey $(KeyAdapterRules)
  678.         GoTo FatalRegistry
  679.     EndIf
  680.     CloseRegKey $(KeyAdapterRules)
  681.  
  682.     GoTo WriteParameters
  683.  
  684. ;***********************************************************************
  685. ;
  686. ;***********************************************************************
  687. WriteParameters = +
  688.     Set IOBaseValue  = *($(IOADDR_Addr_List),~($(IOADDR_Hex_List),$(IOBaseAddress)))
  689.     Set NewValueList = {+
  690.                        {AddressList,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
  691.                        {BusNumber,$(NoTitle),$(!REG_VT_DWORD),$(BusNumber)},+
  692.                        {BusType,$(NoTitle),$(!REG_VT_DWORD),$(BusType)},+
  693.                        {DeviceName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  694.                           {ClockSpeed,$(NoTitle),$(!REG_VT_DWORD),$(ClockSpeed)},+
  695.                        {InterruptNumber,$(NoTitle),$(!REG_VT_DWORD),$(InterruptNumber)},+
  696.                        {DMAChannel,$(NoTitle),$(!REG_VT_DWORD),$(DMAChannel)},+
  697.                        {LineType,$(NoTitle),$(!REG_VT_DWORD),$(LineType)},+
  698.                        {LineRate,$(NoTitle),$(!REG_VT_DWORD),$(LineRate)},+
  699.                        {MediaType,$(NoTitle),$(!REG_VT_SZ),$(TapiMediaType)},+
  700.                        {IOBaseAddress,$(NoTitle),$(!REG_VT_DWORD),$(IOBaseValue)},+
  701.                        {Port1Type,$(NoTitle),$(!REG_VT_SZ),$(Port1Type)},+
  702.                           {Port2Type,$(NoTitle),$(!REG_VT_SZ),$(Port2Type)}+
  703.                        }
  704. ;;;                       {DebugFlags,$(NoTitle),$(!REG_VT_DWORD),$(DebugFlags)},+
  705.     Shell  $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
  706.     CloseRegKey $(KeyParameters)
  707.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  708.         Debug-Output $(InfName)": ShellCode error."
  709.         GoTo ShellCodeError
  710.     EndIf
  711.     Set RegistryErrorIndex = $($R0)
  712.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  713.         Debug-Output $(InfName)": Registry error: Add value list"
  714.         GoTo FatalRegistry
  715.     EndIf
  716.     ;
  717.     ; Skip TAPI/RAS setup if already installed.
  718.     ;
  719.     IfStr(i) $(!NTN_InstallMode) == configure
  720.         GoTo SuccessfulOption
  721.     EndIf
  722.     ;
  723.     ; Create the HARDWARE\DEVICEMAP\TAPI DEVICES\NiwRAS key
  724.     ;
  725.     OpenRegKey $(!REG_H_LOCAL) "" "HARDWARE\DEVICEMAP" $(MAXIMUM_ALLOWED) BaseKey
  726.     shell "" NiCreateRegKey $(BaseKey) "TAPI DEVICES\NiwRAS"
  727.     IfStr(i) $($R0) != NO_ERROR
  728.         Debug-Output $(InfName)": Error creating registry key!"
  729.         GoTo FatalRegistry
  730.     EndIf
  731.     Set TapiDeviceKey = $($R1)
  732.     Set NewValueList = {+
  733.                        {Address,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
  734.                        {"Media Type",$(NoTitle),$(!REG_VT_SZ),$(TapiMediaType)}}
  735.     Shell  $(UtilityInf), AddValueList, $(TapiDeviceKey), $(NewValueList)
  736.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  737.         Debug-Output $(InfName)": ShellCode error."
  738.         GoTo ShellCodeError
  739.     EndIf
  740.     Set RegistryErrorIndex = $($R0)
  741.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  742.         Debug-Output $(InfName)": Registry error: Add value list"
  743.         GoTo FatalRegistry
  744.     EndIf
  745.     CloseRegKey $(TapiDeviceKey)
  746.     CloseRegKey $(BaseKey)
  747.     ;
  748.     ; if RAS is not installed, then shell ras setup INF file to install RAS
  749.     ; else invoke RAS to allow user to configure RAS for Switch56. 
  750.     ;
  751.     Read-Syms InvokeRasDlg$(!STF_LANGUAGE)
  752.     Shell "oemnsvra.inf" CheckRasInstalled
  753.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  754.         Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf" 
  755.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE),  +
  756.                 "STATUS", $(InvokeRasError)
  757.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  758.             GoTo ShellCodeError
  759.         EndIf
  760.         GoTo SuccessfulOption
  761.     EndIf
  762.     Set RasInstalled = $($R0)
  763.     Debug-Output $(InfName)": Is RAS Installed? "$(RasInstalled)
  764.     ;
  765.     ; display a message to the user that RAS setup will now be invoked
  766.     ;
  767.     IfStr(i) $(RasInstalled) == FALSE
  768.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  769.                 $(InvokeRasSetupMsg)
  770.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  771.             GoTo SuccessfulOption
  772.         EndIf
  773.     Else
  774.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  775.                 $(InvokeRasConfigMsg)
  776.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  777.             GoTo SuccessfulOption
  778.         EndIf
  779.     EndIf
  780.     ;
  781.     ; FIXME - RAS INF will not locate the files if it is spawned here.
  782.     ;
  783.     EndWait
  784.     GoTo SuccessfulOption
  785.  
  786.     ;
  787.     ; Set the flags based on whether this is an IDW installation
  788.     ;
  789.     IfStr(i) $(!STF_IDW) == TRUE
  790.         Set AddCopy  = NO
  791.         Set DoCopy   = NO
  792.         Set DoConfig = NO
  793.     Else
  794.         Set AddCopy  = YES
  795.         Set DoCopy   = YES
  796.         Set DoConfig = YES
  797.     EndIf
  798.     ;
  799.     ; change the global install mode flag to configure if RAS is already installed
  800.     ;
  801.     IfStr(i) $(RasInstalled) == TRUE
  802.             Set SaveNTN_InstallMode = $(!NTN_InstallMode)
  803.             Set !NTN_InstallMode = configure
  804.     EndIf
  805.     ;
  806.     ; now invoke RAS setup to do the right thing
  807.     ;
  808.     Shell "oemnsvra.inf" InstallOption $(!STF_LANGUAGE) "RAS" $(RasDir) $(AddCopy) $(DoCopy) $(DoConfig)
  809.     ;
  810.     ; restore the global instal mode flag if it was changed
  811.     ;
  812.     IfStr(i) $(RasInstalled) == TRUE
  813.             Set !NTN_InstallMode = $(SaveNTN_InstallMode)
  814.     EndIf
  815.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  816.         Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf" 
  817.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS",  +
  818.                 $(InvokeRasError)
  819.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  820.             GoTo ShellCodeError
  821.         EndIf
  822.         GoTo SuccessfulOption
  823.     EndIf
  824.  
  825.     EndWait
  826.     GoTo SuccessfulOption
  827.  
  828. ;***********************************************************************
  829. ;
  830. ;***********************************************************************
  831. BindingAdapter =+
  832.     Set Error = "Binding: Sorry, not yet implemented."
  833.     GoTo FatalError
  834.  
  835. ;***********************************************************************
  836. ;
  837. ;***********************************************************************
  838. RemoveAdapter = +
  839.     IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
  840.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  841.             $(ProductSoftwareName)
  842.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  843.             Debug-Output $(InfName)": ShellCode error"
  844.             GoTo ShellCodeError
  845.         EndIf
  846.         Set RegistryErrorIndex = $($R0)
  847.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  848.             GoTo FatalRegistry
  849.         EndIf
  850.     Else
  851.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  852.             $(ProductSoftwareName), $(!NTN_RegBase)
  853.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  854.             Debug-Output $(InfName)": ShellCode error"
  855.             GoTo ShellCodeError
  856.         EndIf
  857.         Set RegistryErrorIndex = $($R0)
  858.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  859.             GoTo FatalRegistry
  860.         EndIf
  861.     EndIf
  862.     GoTo end
  863.  
  864. ;***********************************************************************
  865. ;
  866. ;***********************************************************************
  867. UpgradeSoftware = +
  868.     IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
  869.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  870.         IfStr $(KeyProduct) != $(KeyNull)
  871.             GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
  872.             Set Version = *($(VersionInfo), 4)
  873.             Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
  874.             IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  875.                 Debug-Output $(InfName)": ShellCode error"
  876.                 GoTo ShellCodeError
  877.             EndIf
  878.             Set !UG_Filename = $($R0)
  879.             IfStr(i) $(!UG_Filename) != ""
  880.                 install "Install-Update"
  881.                 IfStr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  882.                     GoTo FatalError
  883.                 EndIf
  884.             EndIf
  885.             SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
  886.             SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
  887.             IfInt $(Version) != $(ProductVersion)
  888.             EndIf
  889.             CloseRegKey $(KeyProduct)
  890.         Else
  891.             GoTo FatalRegistry
  892.         EndIf
  893.     Else
  894.         OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) +
  895.               $(MAXIMUM_ALLOWED) NetworkCardKey
  896.         IfStr(i) $(NetworkCardKey) != $(KeyNull)
  897.             GetRegValue $(NetworkCardKey),"ServiceName", ServiceNameInfo
  898.             Set ServiceName = *($(ServiceNameInfo), 4)
  899.             OpenRegKey $(NetworkCardKey) "" "NetRules" +
  900.                 $(MAXIMUM_ALLOWED) NetRuleKey
  901.             IfStr(i) $(NetRuleKey) != $(KeyNull)
  902.             Else
  903.                 GoTo FatalRegistry
  904.             EndIf
  905.             CloseRegKey $(NetRules)
  906.             CloseRegKey $(NetworkCardKey)
  907.         Else
  908.             GoTo FatalRegistry
  909.         EndIf
  910.         OpenRegKey $(!REG_H_LOCAL) "" +
  911.               $(!NTN_ServiceBase)"\"$(ServiceName) +
  912.               $(MAXIMUM_ALLOWED) ServiceKey
  913.         IfStr(i) $(ServiceKey) != $(KeyNull)
  914.             CloseRegKey $(ServiceKey)
  915.         Else
  916.             GoTo FatalRegistry
  917.         EndIf
  918.     EndIf
  919.     GoTo end
  920.  
  921. ;***********************************************************************
  922. ;
  923. ;***********************************************************************
  924. SuccessfulOption = +
  925.     GoTo end
  926.  
  927. ;***********************************************************************
  928. ;
  929. ;***********************************************************************
  930. Abandon = +
  931.     ForListDo $(OEM_ABANDON_OPTIONS)
  932.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  933.             $(ProductSoftwareName), $($)
  934.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  935.             Debug-Output $(InfName)": ShellCode error"
  936.             GoTo ShellCodeError
  937.         EndIf
  938.         Set RegistryErrorIndex = $($R0)
  939.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  940.             GoTo FatalRegistry
  941.         EndIf
  942.     EndForListDo
  943.     IfStr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
  944.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  945.             $(ProductSoftwareName), FALSE
  946.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  947.             Debug-Output $(InfName)": ShellCode error"
  948.             GoTo ShellCodeError
  949.         EndIf
  950.         Set RegistryErrorIndex = $($R0)
  951.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  952.             GoTo FatalRegistry
  953.         EndIf
  954.     EndIf
  955.     GoTo end
  956.  
  957. ;***********************************************************************
  958. ;
  959. ;***********************************************************************
  960. WarningMsg = +
  961.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  962.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  963.         GoTo ShellCodeError
  964.     EndIf
  965.     IfStr(i) $($R1) == "OK"
  966.         GoTo $(to)
  967.     Else-IfStr(i) $($R1) == "CANCEL"
  968.         GoTo $(from)
  969.     EndIf
  970.     GoTo end
  971.  
  972. ;***********************************************************************
  973. ;
  974. ;***********************************************************************
  975. NonFatalInfo = +
  976.     Set Severity = STATUS
  977.     Set CommonStatus = STATUS_USERCANCEL
  978.     IfStr(i) $(Error) == ""
  979.         Set Severity = NONFATAL
  980.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  981.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  982.             GoTo ShellCodeError
  983.         EndIf
  984.         Set Error = $($R0)
  985.     EndIf
  986.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
  987.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  988.         GoTo ShellCodeError
  989.     EndIf
  990.     IfStr(i) $($R1) == "OK"
  991.         GoTo $(from)
  992.     EndIf
  993.     GoTo end
  994.  
  995. ;***********************************************************************
  996. ;
  997. ;***********************************************************************
  998. FatalRegistry = +
  999.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  1000.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1001.         GoTo ShellCodeError
  1002.     EndIf
  1003.     Set Error = $($R0)
  1004.     GoTo FatalError
  1005.  
  1006. ;***********************************************************************
  1007. ;
  1008. ;***********************************************************************
  1009. FatalDetect = +
  1010.     Shell $(UtilityInf),RegistryErrorString,CANNOT_DETECT
  1011.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1012.         Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  1013.         GoTo ShellCodeError
  1014.     EndIf
  1015.     Set Error = $($R0)
  1016.     GoTo FatalError
  1017.  
  1018. ;***********************************************************************
  1019. ;
  1020. ;***********************************************************************
  1021. FatalError = +
  1022.     IfStr(i) $(Error) == ""
  1023.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  1024.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1025.             GoTo ShellCodeError
  1026.         EndIf
  1027.         Set Error = $($R0)
  1028.     EndIf
  1029.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  1030.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1031.         GoTo ShellCodeError
  1032.     EndIf
  1033.     GoTo SetFailed
  1034.  
  1035. ;***********************************************************************
  1036. ;
  1037. ;***********************************************************************
  1038. ShellCodeError = +
  1039.     Set DlgType      = "MessageBox"
  1040.     Set STF_MB_TITLE = $(ShellCodeErrorTitle)
  1041.     Set STF_MB_TEXT  = $(ShellCodeErrorText)
  1042.     Set STF_MB_TYPE  = 1
  1043.     Set STF_MB_ICON  = 3
  1044.     Set STF_MB_DEF   = 1
  1045.     UI Start "Error Message"
  1046.     GoTo SetFailed
  1047.  
  1048. ;***********************************************************************
  1049. ;
  1050. ;***********************************************************************
  1051. SetFailed = +
  1052.     Set CommonStatus = STATUS_FAILED
  1053.     IfStr(i) $(OEM_ABANDON_ON) == TRUE
  1054.         Set OEM_ABANDON_ON = FALSE
  1055.         GoTo Abandon
  1056.     EndIf
  1057.     GoTo end
  1058.  
  1059. ;***********************************************************************
  1060. ;
  1061. ;***********************************************************************
  1062. end = +
  1063.     Set !DebugOutputControl = $(OldDebugControl)
  1064.     Return $(CommonStatus)
  1065.  
  1066. ;***********************************************************************
  1067. ;
  1068. ;***********************************************************************
  1069. [NiCreateRegKey]
  1070.     Debug-Output $(InfName)": Entering [NiCreateRegKey]"
  1071.     Set ECR_Result          = NO_ERROR
  1072.     Set ECR_BaseKeyHandle   = $($0)
  1073.     Set ECR_NewPath         = $($1)
  1074.     Set KeyNull             = ""
  1075.     Set MAXIMUM_ALLOWED     = 33554432
  1076.  
  1077.     Debug-Output $(InfName)": NiCreateRegKey - ECR_BaseKeyHandle = "$(ECR_BaseKeyHandle)
  1078.     Debug-Output $(InfName)":                  ECR_NewPath       = "$(ECR_NewPath)
  1079.     Debug-Output $(InfName)":                  MAXIMUM_ALLOWED   = "$(MAXIMUM_ALLOWED)
  1080.     Debug-Output $(InfName)":                  KeyNull           = "$(KeyNull)
  1081.  
  1082.     OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_NewPath) $(MAXIMUM_ALLOWED) +
  1083.                ECR_BaseKey
  1084.     Debug-Output $(InfName)": ECR_BaseKey = "$(ECR_BaseKey)
  1085.     Debug-Output $(InfName)":     OpenRegKey returned "$($R0)
  1086.     IfStr $(ECR_BaseKey) == $(KeyNull)
  1087.         Debug-Output $(InfName)": ECR_BaseKey == KeyNull"
  1088.     Else
  1089.         Debug-Output $(InfName)": ECR_BaseKey != KeyNull"
  1090.         Set ECR_KeyHandle = $(ECR_BaseKey)
  1091.         GoTo  ECR_Return
  1092.     EndIf
  1093.  
  1094.     Set ECR_TmpPath = ""
  1095.     Split-String $(ECR_NewPath) "\" ECR_PList
  1096.     Debug-Output $(InfName)": ECR_PList = "$(ECR_PList)
  1097.     ForListDo $(ECR_PList)
  1098.         IfStr(i) $($) != "\"
  1099.             IfInt $(#) == 1
  1100.                 Set ECR_TmpPath = $($)
  1101.             Else
  1102.                 Set ECR_TmpPath = $(ECR_TmpPath)"\"$($)
  1103.             EndIf
  1104.             Debug-Output $(InfName)": Determining if "$(ECR_TmpPath)" exists"
  1105.             OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_TmpPath) $(MAXIMUM_ALLOWED) ECR_BaseKey
  1106.             IfStr $(ECR_BaseKey) == $(KeyNull)
  1107.                 Debug-Output $(InfName)": Creating "$(ECR_TmpPath)
  1108.                 CreateRegKey $(ECR_BaseKeyHandle)  {$(ECR_TmpPath),0,GenericClass} "" $(MAXIMUM_ALLOWED) "" ECR_KeyHandle
  1109.                 IfStr(i) $(ECR_KeyHandle) == $(KeyNull)
  1110.                     Set ECR_Result = $($R0)
  1111.                     GoTo ECR_Return
  1112.                 EndIf
  1113.             EndIf
  1114.         EndIf
  1115.     EndForListDo
  1116. ECR_Return = +
  1117.     Return $(ECR_Result) $(ECR_KeyHandle)
  1118.  
  1119. ;***********************************************************************
  1120. ;
  1121. ;***********************************************************************
  1122. [DebugConfiguration]
  1123.     Debug-Output $(!p:InfName)": **CONFIGURATION STATE: "$($0)
  1124.     Debug-Output $(!p:InfName)": InterruptNumber is "$(!p:InterruptNumber)
  1125.     Debug-Output $(!p:InfName)": IOBaseAddress  is "$(!p:IOBaseAddress)
  1126.     Debug-Output $(!p:InfName)": DMAChannel is "$(!p:DMAChannel)
  1127.     Debug-Output $(!p:InfName)": LineType        is "$(!p:LineType)
  1128.     Debug-Output $(!p:InfName)": LineRate        is "$(!p:LineRate)
  1129.     Return
  1130.  
  1131. ;***********************************************************************
  1132. ;
  1133. ;***********************************************************************
  1134. [Install-Option]
  1135.     Set STF_VITAL = ""
  1136.     IfStr(i) $(AddCopy) == "YES"
  1137.         AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1138.     AddSectionFilesToCopyList Files-$(Option)Help $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1139.     EndIf
  1140.     IfStr(i) $(DoCopy) == "YES"
  1141.        Set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1142.        CopyFilesInCopyList
  1143. ;WHQL
  1144.     else
  1145.         LibraryProcedure STATUS,$(!LIBHANDLE), CopySingleFile $(SrcDir)\NIWHELP.HLP $(!STF_WINDOWSSYSPATH)\NIWHELP.HLP
  1146.     EndIf
  1147.     Exit
  1148.  
  1149. ;***********************************************************************
  1150. ;
  1151. ;***********************************************************************
  1152. [Install-Update]
  1153.    Set STF_VITAL        = ""
  1154.    Set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  1155.    AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1156.    AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1157.    Set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1158.    CopyFilesInCopyList
  1159.    Exit
  1160.  
  1161. ;***********************************************************************
  1162. ;
  1163. ;***********************************************************************
  1164. [Source Media Descriptions]
  1165.     1  = "Windows NT Setup Disk #1"
  1166.  
  1167. [Signature]
  1168.     FileType = MICROSOFT_DRVLIB_FILE
  1169. [GetSignature]
  1170.     read-syms Signature
  1171.     return $(FileType)
  1172.  
  1173. ;***********************************************************************
  1174. ;
  1175. ;***********************************************************************
  1176. [ProductType]
  1177.     STF_PRODUCT         = Winnt
  1178.     STF_PLATFORM        = I386
  1179.  
  1180. ;***********************************************************************
  1181. ;
  1182. ;***********************************************************************
  1183. [Files-Inf]
  1184.     1, oemsetnt.inf, SIZE=1000, RENAME=$(!UG_Filename)
  1185.  
  1186. ;***********************************************************************
  1187. ;
  1188. ;***********************************************************************
  1189. [Files-NiwRAS]
  1190.     1, NiwRAS.SYS, SIZE=65536
  1191. ;WHQL
  1192. [Files-NiwRASHelp]
  1193.     1, NIWHELP.HLP, SIZE=65536
  1194.  
  1195. ;***********************************************************************
  1196. ;
  1197. ;***********************************************************************
  1198. [LanguagesSupported]
  1199.     ENG
  1200.  
  1201. ;***********************************************************************
  1202. ;
  1203. ;***********************************************************************
  1204. [OptionsTextENG]
  1205.     NiwRAS             = "Niwot Networks NiwRAS"
  1206.  
  1207. ;***********************************************************************
  1208. ;
  1209. ;***********************************************************************
  1210. [FileConstantsENG]
  1211.     ProCaption          = "Windows NT Setup"
  1212.     ProCancel           = "Cancel"
  1213.     ProCancelMsg        = "Windows NT Networking is not correctly installed.  "+
  1214.                           "Are you sure you want to cancel copying files?"
  1215.     ProCancelCap        = "Network Setup Message"
  1216.     ProText1            = "Copying:"
  1217.     ProText2            = "To:"
  1218.  
  1219.     FunctionTitleNiwRAS                = "Niwot Networks NiwRAS Card Setup"
  1220.     ProductSoftwareDescription          = "Niwot Networks NiwRAS Driver"
  1221.     ProductHardwareNiwRASDescription   = "Niwot Networks NiwRAS"
  1222.     ProductSoftwareTitle                = "Niwot Networks NiwRAS Driver"
  1223.     ProductHardwareNiwRASTitle         = "Niwot Networks NiwRAS Adapter"
  1224.  
  1225.     ShellCodeErrorTitle                 = "Error: "$(FunctionTitle)$(Option))
  1226.     ShellCodeErrorText                  = "Shell Code Error."
  1227.  
  1228. ;***********************************************************************
  1229. ;
  1230. ;***********************************************************************
  1231. [DialogConstantsENG]
  1232.     Help                = "&Help"
  1233.     Exit                = "Cancel"
  1234.     OK                  = "OK"
  1235.     HelpContext         = 10
  1236.     Continue            = "Continue"
  1237.     Cancel              = "Cancel"
  1238.  
  1239. ;***********************************************************************
  1240. ;
  1241. ;***********************************************************************
  1242. [FileDependentDlgENG]
  1243.     DlgType             = "MultiCombo"
  1244.     DlgTemplate         = "WD"
  1245.     Caption             = "NiwRAS 1"
  1246.     
  1247.     Combo1Label         = "&Interrupt Level:"
  1248.     Combo1List          = $(Interrupt_List)
  1249.     Combo1Out           = $(InterruptNumber)
  1250.  
  1251.     Combo2Label         = "&IO Base Address:"
  1252.     Combo2List          = $(IOADDR_Hex_List)
  1253.     Combo2Out           = $(IOBaseAddress)
  1254.  
  1255.     Combo3Label         = "&DMA Channel Number:"
  1256.     Combo3List          = $(DMA_Channel_List)
  1257.     Combo3Out           = $(DMAChannel)
  1258.  
  1259.     ComboListItemsIn    = {Combo1List, Combo2List, Combo3List}
  1260.     ComboListItemsOut   = {Combo1Out, Combo2Out, Combo3Out}
  1261.  
  1262.     EditTextIn          = ""
  1263.     EditTextLim         = ""
  1264.     CBOptionsGreyed     = {}
  1265.     NotifyFields        = {NO, NO, NO, NO}
  1266.     HelpContext         = 10
  1267. ;***********************************************************************
  1268. ;
  1269. ;***********************************************************************
  1270. [CardDependentDlgENG]
  1271.     DlgType = "MultiCombo"
  1272.     DlgTemplate = "WD"
  1273.     Caption = "NiwRAS 2"
  1274.     Combo1Label = "Clock(0=extrn):"
  1275.     Combo1List = $(ClockSpeedList)
  1276.     Combo1Out  = $(ClockSpeed)
  1277.     Combo2Label = "Port 1 Type"
  1278.     Combo2List = $(Port1TypeList)
  1279.     Combo2Out  = $(Port1Type)
  1280.     Combo3Label = "Port 2 Type"
  1281.     Combo3List = $(Port2TypeList)
  1282.     Combo3Out  = $(Port2Type)
  1283.     ComboListItemsIn  = {Combo1List, Combo2List, Combo3List}
  1284.     ComboListItemsOut = {Combo1Out, Combo2Out, Combo3Out}
  1285.  
  1286.     EditTextIn = ""
  1287.     EditTextLim = ""
  1288.     NotifyFields = {NO, NO, NO, NO}
  1289.     HelpContext         = 10
  1290.  
  1291. ;***********************************************************************
  1292. ;
  1293. ;***********************************************************************
  1294. [InvokeRasDlgENG]
  1295.     InvokeRasSetupMsg   = "Niwot Networks NiwRAS setup is complete. "+
  1296.                           "Remote Access Services (RAS) must now be installed. "+
  1297.                           "Please configure the NiwRASSync ports in RAS "+
  1298.                           "setup to enable you to use RAS over the NiwRAS."
  1299.     InvokeRasConfigMsg  = "Niwot Networks NiwRAS setup is complete. "+
  1300.                           "Remote Access Services (RAS) setup must now be invoked. "+
  1301.                           "Please configure the NiwRASSync ports in RAS "+
  1302.                           "setup to enable you to use RAS over the NiwRAS."
  1303.     InvokeRasError      = "Niwot Networks NiwRAS setup encountered an error "+
  1304.                           "while invoking the RAS setup INF file (OEMNSVRA.INF). "+
  1305.                           "Please make sure that the file is present in the "+
  1306.                           "System32 directory and is the proper file." 
  1307.  
  1308.